home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / listing 05.ki (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  122 lines
  1. 5 goto100
  2. 10 restore
  3. 20 fori=1ton:reads$:next
  4. 30 return
  5. 100 dims%(38),r%(38),n%(38)
  6. 110 n1=38:n2=12:n3=118
  7. 120 n=n1+n2+n3:gosub10
  8. 130 forx=1ton1
  9. 140 reads%(x),l:r%(x)=s%(x):n%(x)=s%(x)+l-1:next
  10. 160 print"hi, i am eliza tell me your problem
  11. 170 [133]i$:i$[178]" "[170]i$[170]" "
  12. 200 [129]l[178]1[164][195](i$)
  13. 210 [139][202](i$,l,1)[178]"'"[167]i$[178][200](i$,l[171]1)[170][201](i$,[195](i$)[171]l):[137]210
  14. 220 [130]
  15. 230 [139]i$[178]p$[167][153]"please don't repeat yourself":[137]170
  16. 280 [140]:s[178]0
  17. 300 [129]k[178]1[164]n1
  18. 305 [139]s[177]0[167]340
  19. 310 [135]k$
  20. 320 [129]a[178]1[164][195](i$)[171][195](k$)
  21. 325 [139][202](i$,a,[195](k$))[178]k$[167]s[178]k:t[178]a:f$[178]k$
  22. 330 [130]
  23. 340 a[178]0:[130]
  24. 365 [139]s[177]0[167]k[178]s:l[178]t:[137]400
  25. 370 k[178]n1:[137]560
  26. 400 n[178]n1
  27. 405 [141]10
  28. 410 c$[178]" "[170][201](i$,[195](i$)[171][195](f$)[171]l[170]1)
  29. 420 [129]x[178]1[164]n2[173]2:[135]s$,r$
  30. 440 [129]l[178]1[164][195](c$)
  31. 450 [139]l[170][195](s$)[177][195](c$)[167]510
  32. 480 [139][202](c$,l,[195](s$))[179][177]s$[167]510
  33. 490 c$[178][200](c$,l[171]1)[170]r$[170][201](c$,[195](c$)[171]l[171][195](s$)[170]1):l[178]l[170][195](r$)
  34. 500 [137]540
  35. 510 [139]l[170][195](r$)[177][195](c$)[167]540
  36. 520 [139][202](c$,l,[195](r$))[179][177]r$[167]540
  37. 530 c$[178][200](c$,l[171]1)[170]s$[170][201](c$,[195](c$)[171]l[171][195](r$)[170]1)
  38. 540 [130]:[130]
  39. 555 [139][202](c$,2,1)[178]" "[167]c$[178][201](c $,[195](c$)[171]1)
  40. 560 n[178]n1[170]n2
  41. 570 [141]10
  42. 580 [129]x[178]1[164]r%(k):[135]f$:[130]x
  43. 590 r%(k)[178]r%(k)[170]1:[139]r%(k)[177]n%(k)[167]r%(k)[178]s%(k)
  44. 600 [139][201](f$,1)[179][177]"*"[167][153]f$:p$[178]i$:[137]170
  45. 620 [153][200](f$,[195](f$)[171]1);c$:[137]170
  46. 1050 [131]"can you","can i","you are","youre","i dont","i feel","why dont you"
  47. 1060 [131]"why cant i","are you","i cant","i am","im ","you ","i want","what"
  48. 1070 [131]"how","who","where","when","why","name","cause","sorry","draem","hello"
  49. 1080 [131]"hi ","maybe"," no","your","always","think","alike","yes","friend"
  50. 1090 [131]"computer","eliza","money","nokeyfound"
  51. 1230 [131]" are "," am ","were ","was "," you "," i ","your ","my "," ive "
  52. 1235 [131]" youve "," im "," youre "
  53. 1330 [131]"don't you believe that i can*"
  54. 1340 [131]"perhaps you would like to be able to*"
  55. 1350 [131]"you want me to be able to*"
  56. 1360 [131]"perhaps you don't want to*","do you want to be able to*"
  57. 1365 [131]"what makes you think i am*","does it please you to believe i am*"
  58. 1390 [131]"perhaps you would like to be*"
  59. 1400 [131]"do you sometimes wish you were*"
  60. 1410 [131]"don't you really*","why don't you*","do you wish to be able to*"
  61. 1440 [131]"does that trouble you?","tell me more about such feelings."
  62. 1460 [131]"do you often feel*","do you enjoy feeling*"
  63. 1480 [131]"do you really believe i don't*","perhaps in good time i will*"
  64. 1500 [131]"do you want me to*","do you think you should be able to*"
  65. 1520 [131]"why can't you*","why are you interested in whether or not i am*"
  66. 1540 [131]"would you prefer if i where not*","perhaps in your fantasies i am*"
  67. 1560 [131]"how do you know you can't*","have you tried?","perhaps you can now*"
  68. 1590 [131]"did you come to me because you are*","how long have you been*"
  69. 1610 [131]"do you believe it is normal to be*","do you enjoy being*"
  70. 1630 [131]"we were discussing you-- not me.","oh, i*"
  71. 1650 [131]"you're not really talking about me, are you?"
  72. 1660 [131]"what would it mean to you if you got*","why do you want*"
  73. 1680 [131]"suppose you soon got*","what if you never got*"
  74. 1700 [131]"i sometimes also want*","why do you ask?"
  75. 1720 [131]"does that question interest you?"
  76. 1730 [131]"what answer would please you the most?"
  77. 1740 [131]"what do you think?","are such questions in your mind often?"
  78. 1760 [131]"what is that you really want to know?","have you asked anyone else?"
  79. 1780 [131]"have you asked such questions before?"
  80. 1790 [131]"what else comes to mind when you ask that?"
  81. 1800 [131]"names don't interest me.","i don't care about names-- please go on."
  82. 1820 [131]"is that the real reason?","don't any other reasons come to mind?"
  83. 1840 [131]"does that reason explain anything else"
  84. 1850 [131]"what other reasons might there be?","please don't apologize!"
  85. 1870 [131]"apologies are not necessary."
  86. 1880 [131]"what feelings do you have when you apologize?","don't be so defensive!"
  87. 1900 [131]"what does that dream suggest you?","do you dream often?"
  88. 1920 [131]"what persons appear in your dreams?","are you disturbed by your dreams?"
  89. 1940 [131]"how do you do ... plaese state your problem."
  90. 1950 [131]"you don't seem quite certain.","why the uncertain tone?"
  91. 1970 [131]"can't you be more positive?","you aren't sure?","don't you know?"
  92. 2000 [131]"why no*","don't say no it's always so negative","why not?"
  93. 2030 [131]"are you sure?","why no?","why are you concerned about my*"
  94. 2060 [131]"what about your own*","can't you think of a specific example?","when?"
  95. 2090 [131]"what are you thinking of?","really, always?"
  96. 2110 [131]"do you really think so?","but you are not sure you*"
  97. 2130 [131]"do you doubt you*","in what way?","what resemblance do you see?"
  98. 2160 [131]"what does the similarity suggest to you?"
  99. 2170 [131]"what other connections do you see?"
  100. 2180 [131]"could there really be some connections?","how?"
  101. 2200 [131]"you seem quite positive.","are you sure?","i see.","i understand."
  102. 2240 [131]"why do you bring up the topic of friends?","do your friends worry you?"
  103. 2260 [131]"do your friends pick on you?","are you sure you have any friends?"
  104. 2280 [131]"do you impose on your friends?"
  105. 2290 [131]"perhaps your love for friends worries you.","do computers worry you?"
  106. 2310 [131]"are you talking about me in particular?"
  107. 2320 [131]"are you frightened by machines?","why do you mention computers?"
  108. 2340 [131]"what do you think machines have to do with your problem?"
  109. 2350 [131]"don't you think computers can help people?"
  110. 2360 [131]"what is it about machines that worries you?"
  111. 2370 [131]"say, do you have any psychological problems?"
  112. 2380 [131]"what does that suggest to you","i see","i'm not sure i understand you."
  113. 2410 [131]"come come elucidate your thoughts","can you elaborate on that?"
  114. 2430 [131]"that is quite interesting.","why do you have problems with money?"
  115. 2450 [131]"do you think money is everything?"
  116. 2460 [131]"are you sure that money is the problem?"
  117. 2470 [131]"i think we want to talk about you, not  about me","whats about me?"
  118. 2490 [131]"why do you always bring up my name?"
  119. 2530 [131]1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40,9
  120. 2540 [131]40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2
  121. 2550 [131]76,4,80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7
  122.